#!/usr/bin/perl 
#
#my $myvar=0;
#if(-e $ARGV[0]) 
#{ 
#    $cmd = "cp $ARGV[0] $ARGV[0].bak"; 
#    `$cmd`; 
#} 
#else 
#{ 
#    print "File does not exist.\n"; 
#    exit; 
#} 
#
#open(INPUT,"$ARGV[0].bak") or die "Cannot open file: $! \n"; 
#open(OUTPUT,">$ARGV[0]");
#
#while(<INPUT>){ 
#    $_ =~ s/$ARGV[1]/$ARGV[2]/g; 
#    print $_; 
#    print OUTPUT $_; 
#} 
#
#close INPUT; 
#close OUTPUT;

$_="truong xuan thung";

my $string = s/thung/danh/g;

print "nop"; 